Amiga Plus 1995 #5 & #6/Amiga Plus CD - 1995 - No. 5 and 6.iso/pd/daten/db/examples/arexxdemos/expand.db

Text File | 1994-09-02 | 241b | 10 lines

/* Rexxprogram for db that expands some shortcuts  */
Options Results
GETFIELD
select
    when result = '1' then PUTFIELD 'First'
    when result = '2' then PUTFIELD 'Second'
    when result = '3' then PUTFIELD 'Third'
    otherwise PUTFIELD result
end